Simples [PortScanner]
Publicado por breek (última atualização em 02/03/2012)
[ Hits: 4.049 ]
É um script simples. Criado para iniciantes.
Não é nenhum [nmap] mas é bem legal e funcional.
Esta bem comentado. É claro que esta em [inglês], mas é para não perder o costume.
Usei o [Google Tradutor], caso haja alguma palavra errada é culpa é dele.
#!/usr/bin/perl #-------------------------------------------------------------------------------------------------------- # # @Author: breek # @Code: SimplePortScanner.pl # @Version: 0.1.0 # @Date: 22/02/2012 # #-------------------------------------------------------------------------------------------------------- #===============================================================# # É um script simples. Criado para iniciantes. # Não é nenhum [nmap] mas é bem legal e funcional. # # Esta bem comentado. É claro que esta em [inglês], mas # é para não perder o costume. Usei o [Google Tradutor], # caso haja alguma palavra errada é culpa é dele. # # Criado para ser modificado. Cada modificação mexa na versão. # NÃO ALTERE MEU NOME!! # NÃO ALTERE O NOME DO SCRIPT!! #===============================================================# use strict; use warnings; use IO::Socket; #-------------------------------------------------------------------------------------------------------- #__BEGIN_MAIN__ # # Name: Main # # Purpose: Initializes the script. # # Input: $Var_IP # $Var_BeginPort # $Var_EndPort # # Output: $Var_IP # $Var_Scanning # #----------------------------- #Global variables # my $Var_IP; # Recebe o [Endereço IP] - USUARIO my $Var_BeginPort; # Recebe a [Porta inicial] - USUARIO my $Var_EndPort; # Recebe a [Porta final] - USUARIO my $Var_Scanning; # Escanea as portas - SCRIPT my $Var_FindOpenPort; # Recebe as portas abertas - SCRIPT # # #----------------------------- system( "cls" ); # Recebe o [Endereço IP] # print "Enter the IP address: "; $Var_IP = <>; chomp $Var_IP; # Recebe a [Porta inicial] # print "Enter the starting port: "; $Var_BeginPort = <>; chomp $Var_BeginPort; # Recebe a [Porta final] # print "Enter the ending port: "; $Var_EndPort = <>; chomp $Var_EndPort; # Iniciando escaneamento # print "\n\nScanning IP [ $Var_IP ]. \n\n"; # Escaneando # for( $Var_Scanning = $Var_BeginPort; $Var_Scanning <= $Var_EndPort; $Var_Scanning++ ) { $Var_FindOpenPort = IO::Socket::INET->new( PeerAddr => $Var_IP, # Endereço IP PeerPort => "$Var_Scanning", # Numero da porta Proto => "TCP", # Protocolo ); # Porta aberta encontrada # if( $Var_FindOpenPort ) { print "[+] Port [$Var_Scanning] is open. \n"; } } # Finalizando script # print "\nScanning...DONE. \n"; exit; #__END_MAIN__ #--------------------------------------------------------------------------------------------------------
Script para Detectar rede Wireless
Slowloris.pl (não foi feito por mim é apenas um compartilhamento.)
Enviando notificações do Nagios para o MSN
Carregando automaticamente wireless via ndiswrapper II
Nenhum comentário foi encontrado.
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Instalando Zoom Client no Ubuntu 24.04 LTS
Instalando Zoom Client no Fedora 40
Instalando Navegador Firefox no Debian 12
Bloqueando propagandas no Youtube e outros sites com o uBlocker Origin
Dificuldade em ler binário (12)
Em que pasta/arquivo ficam as configurações das janelas em derivados d... (2)
Não consigo atualizar minha GPU (1)